home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / lib / perl5 / Squirrel / Role.pm
Encoding:
Perl POD Document  |  2009-10-09  |  819 b   |  48 lines
  1. package Squirrel::Role;
  2. use strict;
  3. use warnings;
  4.  
  5. use base qw(Squirrel);
  6.  
  7. sub _choose_backend {
  8.     if ( $INC{"Moose/Role.pm"} ) {
  9.         return {
  10.             backend  => 'Moose::Role',
  11.             import   => \&Moose::Role::import,
  12.             unimport => \&Moose::Role::unimport,
  13.         }
  14.     }
  15.     else {
  16.         require Mouse::Role;
  17.         return {
  18.             backend  => 'Mouse::Role',
  19.             import   => \&Mouse::Role::import,
  20.             unimport => \&Mouse::Role::unimport,
  21.         }
  22.     }
  23. }
  24.  
  25. 1;
  26.  
  27. __END__
  28.  
  29. =head1 NAME
  30.  
  31. Squirrel::Role - Use Mouse::Role, unless Moose::Role is already loaded. (DEPRECATED)
  32.  
  33. =head1 SYNOPSIS
  34.  
  35.     use Squirrel::Role;
  36.  
  37. =head1 DEPRECATION
  38.  
  39. C<Squirrel::Role> is deprecated. C<Any::Moose> provides the same functionality,
  40. but better. :)
  41.  
  42. =head1 SEE ALSO
  43.  
  44. L<Any::Moose>
  45.  
  46. =cut
  47.  
  48.